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IMULACA© 



COMO SIMULAR CLIMA 



VARIAVEIS DE 



DISTRIBUICAO NORMAL 



CONDICOeS DE MERCADO 
CONTROLE DE CAIXA 



Retomando nossos estudos sobre o uso 
de modelos, apresentamos neste artigo 
urn programa que se vale de alguns 
principios economicos para simular o 
balango de uma empresa comercial. 



No artigo da pdgina 1 176, exartiina- 
mos o papel da simulatao em varias 
areas de pesquisa. Vimos (ambem como 
gerar diferentes variaveis aleatdrias, ca- 
da qiial adequada a uma determinada si- 
tLia<;ao. Como demonstrou nosso pro- 
grama de simulagao normal, a gera^ao 
de variaveis normalmente distribuidas e 
muito simples, mas nao tao eUciente — 
foram necessarios quinze mimeros alea- 
torios para criar uma unica variavel. O 
programa deste artigo usa um metodo 
mais eficaz, que permite simular diver- 
sos aspectos de uma pequeaa empresa 
comercial. Este programa lambem po- 
de ser utilizado como um jogo (ate bem 
divertido), mas constltui, de fato, um 
modeio de uma situac;ao real. 



POKE 23658.8: POKE 23609, 



0: BOBDEB 0: INK 7: 



INVERSE 1: 



L(2) : 
DIM Q{2) 



10 
12 

20 PAPEB 
CLS 

30 PRINT AT 0,8: 
BATATA «UENTE " 
40 DIM AS (4. 12) : DIM 
DIM DtlOJ : DIM WC2) 
: DIM P(2) 

50 LET AS(1)="QUENTE: E SECO": 
LET D{3)=150: LET DC4)=30D 
60 LET A3 (2) ="QUENTE E OMIDO" 
: LET D(5)-100; LET D(6)-200 
70 LET AS t3) -"FRIO E SECO": 
LET D(7)=250: LET D(e)=160 
80 LET ASC4)="FRI0 E UMIDO" : 
LET D(9)=200: LET 0(10=100 
S80 DIM Ct4,2): LET C(l,l)-.l: 
.2) = . 15 
Ct2,l)-0.5: LET C(2,2) 



LET C(l, 
590 LET 
= 0.35 
600 LET 



CC3.1)-0.01: LET C(3.2 



)=0. 

610 

10 

620 

1-6) 

625 

620 



12 
LET 



Ct4.1)-10: LET C(4.Z)' 



INPUT 

? ' ;N 
IF N<1 



'QUANTOS JOGADOHES < 



OR N>6 THEN GOTO 




'mfwimx^wmr' 94 1\ 



627 DIM K(N>: DIM T{2,N): DIM 

0(2. N) 

630 FOB I-l TO 2: FOB J-1 TO N 

640 LET TtI,Jl-0 

650 NEXT J: NEXT I 

700 FOR K=l TO 10 

710 LET Pl-INT (10»'{.3+(HND*1/ 



2)))/10 

720 LET P2-INT 

2>))/10 

730 PRINT 



(10*{.2+{BND*1/ 



INK 4; BBIGHT 1:" — 



Oia: 



INK 7;K; INK 4; 



740 PRINT "Prob. de urn dia que 

nte e seco : "a00*Pl;"t" 

750 PRINT "Prob. de um dia aec 

Q ■ '•;100*P2;"f 

760 OOSUB 1400 

770 LET U1-RND*1; LET U2-HND*! 

780 LET Vl-SQH (2*(LN (1/U1)>) 

790 LET U2-C0S [2«PI*U2) : LET 

V3-SIN t2*PI*U2) 

600 LET Zl-INT (U1*V23 : LET Z2 

-IKT (vi^va) 

810 LET A1-P1«P2: LET A2-P1 

820 LET A3-P1+P2-A1: LET A4-1 : 
LET F-BND*1 

821 PBINT : IF FCAl THEN LET 
R"l 

822 IF F>A1 AND F<-A2 THEN 
LET B-2 

823 IF F>A2 AND F<-A3 THEN 
LET R"3 

824 IF F>A3 AND F<-A4 THEN 
LET H-4 

830 CLS : PRINT "0 TEMPO ESTA 

* ;A$ (B) 

840 LET D(1)-INT (D(l+R*2) +21* 

251: LET D (2) -INT (D(2+B*2)+22 

*40) 

850 PRINT "Demanda de batatas 

assadas -' ;D( 1) 

860 PRINT 'Demands de lataa de 

coca ■";D{2) 



990 


PRINT ' * 


1000 


PRINT INK 5: INVERSE li'J 


OGADOa GANHO CUSTOS LUCRO " 


1010 


GOSUB 1600 


1020 


NEXT K 


1030 


PAUSE 200 


1090 


CLS 


1100 


PRINT " RESULTADO FINAL A 


POS 


LO DIAS ■" • 


1110 


PRINT "JOGADOR","LUCBO TOT 


AL- 




1120 


FOB J-1 TO N 


1130 


PRINT J.K{J] r NEXT J 


1140 


PBINT ' ■ : PBINT 'FIM DE JO 


GO" 




1150 


STOP 


1400 


PBINT "SEU PEDIDO POR FAUO 


R -: 


PRINT 



p 



1410 FOR J-l TO N 

1420 PRINT "JOGADOH";J: PBINT 

14 30 INPUT "NUMERO DE BATATAS Q 

UENTES *;0(1,J) 

1440 INPUT "NUMERO DE LATAS DE 

COCA COLA"; 0(2, J) 

1450 NEXT J 

1460 RETUBN 

1600 FOR J-1 TO N 




1610 FOR I-l TO 2 

1620 LET L-0(I,J) 

1630 IF DdXL THEN LET L-D(I) 

1650 LET W(I)-Ct2,I)«L 

1670 LET Q(I)-C(1,I)*0{I.J) 

1680 IF D(I)>L(I) THEN GOTO 17 

00 

1690 LET Q{I)-Q(I)-C{3,I)*(0(I, 

J)-D(I)) 

1700 LET P(1)-W(I)-Q{1) 

1710 LET T{I,J)-T(I,J)+P(I) 

1720 NEXT I 

1730 LET K(J)»T(1.J)+T(2. J)-200 

1740 LET E-W{l)+W(2) 

1750 LET C-Q(l)+Q(2)+20 

1760 LET P-P{l)+P(2)-20 

1770 PRINT INK 6; TAB 3;J;TAB 9 

;E;TAB 18;C;TAB 2S;P; " 

1780 NEXT J 

1790 BETURN 



580 C1(1)-.1:C1(2)-.15 
590 C2(1)-.5:C2(2)-. 25 
600 C3{1)-.01:C3{2)-.12 
620 INPUT-QUANTOS JOGADORES 



(1- 



m 



5 R-RND(-TIME) 
10 PI-4«ATN(1) 
20 CLS 

30 PRINT TAB CI 3) 
": PBINT: PRINT 



'Batata guente 



6) "iN 

625 IF N<1 OB N>6 THEN 620 

630 FOB I-l TO 2: FOB J-1 TO N 

640 TP{I,J)-0 

650 NEXT J, I 

700 FOR K-1 TO 10 

710 Pl-INT(10*{.3+END(l)/2))/10 

720 P2-INT(10*<.2+HND{l)/2))/10 

725 PRINT" QUALQUEH TECLA PARA 
CONTINUAH" 

726 IF INKEY$-"" THEN 726 
730 PRINT"dia-;K: PRINT 

740 PRINT "PROB. DE UM DIA QUENT 

E :";100*P1:"»'' 

750 PRINT"PROB. DE UM DIA SECO 

:-;100*P2:"t" 

760 GOSUB 1400 

770 Ul-HND(l) rU2-RND{l) 

780 V1-SQR{2*(L0G(1/U1))) 

790 V2-COS{2*PI«U2) :U3-SIN(2*PI 

«U2) 

800 Z1-INT{W1«V2) :Z2-INT(V1*V3) 

810 A1-P1«P2:A2-P1 

820 A3-P1+P2-A1;A4-1:F-RNDC1} 



II U! 




f 



821 CLS:IF F<-A1 THEN 8J0 

822 IF F>A1 AND F<-A2 THEN 870 

823 IF F>A2 AND F<-A3 THEN 810 

824 IF F>A3 AND F<-A4 THEN 950 
830 PRINT"0 TEMPO ESTA QUENTE E 

SECO" 
840 D(1)-150+Z1*25:D(2)-300+Z2« 
40: GOTO 970 
870 PRINT" TEMPO ESTA QUENTE E 

UMIDO" 
880 D(I>-100+Z1*25:D(2)-200+Z2* 
40: GOTO 970 

910 PRINT'O TEMPO ESTA FRIO E S 
ECO" 

920 D(l) -250+Zl«25 :D (2) -160+Z2* 
40:GOTO 970 

950 PftINT-0 TEMPO ESTA FRIO E U 
MIDO" 

960 D CD -200+Z1*25: 0(2) -100+22* 
40 

970 PRINT "DEMANDA DE BATATAS AS 
SADAS ■ " ; D ( 1 ) 

980 PRINT'DEHANDA DE LATAS DE C 
0CA-";D{2) 

1000 PRINT "JOGADOR GANHO CUST 
OS LUCHO- 
1010 GOSUB 1600 
1020 NEXT K 



1030 FOR I-l TO 2000: NEXT 

1090 CLS 

1100 PRINT" RESULTADO FINAL APO 

S 10 DIAS ": PRINT: PRINT 

1110 PRINT " JOGADOR" ,-LUCRO TOTA 

L* 

1120 FOR J-1 TO N 

1130 PRINT J.TT(J):NEXT J 

1140 PRINT: PRINT: PHINT"FIM DE J 

OGO" 

1150 END 

1400 PRINT:PHINTTAB(5) ;"seu ped 

ido por favor": PRINT 

1410 FOB J-1 TO N 

1420 PRIHT"JOGADOH" ;J:PRINT 

1430 INPUT"NUMERO DE BATATAS" ;0 

(1,J) 

1440 INPUT'NUMERO DE LATAS DE C 

OCA COLA" ;0(2, J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J-1 TO N 

1610 FOR I-l TO 2 

1620 L-OCI.J) 

1630 IF D(I)<L THEN L-D{I) 

1650 RV(I)-C2(I)«L 

1670 TC(I)-C1(I)*0{I,J) 

1680 IF D(I)<-L THEN RC{I)-TC(I 

)-C3(I)*C0(I.J)-D(I)) 

1700 P(I)-BV(I)-TC{I) 

1710 TP(I,J)-TP(I, J)+PCI) 

1720 NEXT I 

1730 TTCJ>-TP{1,J)+TP(2.J)-200 

1740 E-RU(l)+RUt2) 

1750 C-TC(l}+TC{2)+20 

1760 P-P(l)+P(2) -20 

1770 PRINTUSING" I Itt-ll 

*t«*«t t»«.|*"iJ,E,C,P 

1780 NEXT J 

1790 RETURN 



[BE] 



10 PI-4*ATN(l) 

20 HOME 

30 PRINT TAB (13) : "BATATA QUENTE 

" : PRINT: PRINT 

580 C1(1)-.1:C1(2)-.15 

590 C2(l)-.5:C2(2)-.25 

600 C3(1)-.01:C3(2)-.I2 

620 INPUT"QUANTOS JOGADORES (1- 

6) "jN 

625 IF N<1 OB N>6 THEN 620 

630 FOR I-l TO 2: FOR J-1 TO N 

640 TP(I,J)-0 

6S0 NEXT J, I 

700 FOR K-1 TO 10 

710 P1-INT(10« (■,3+RND(l)/2))/10 

720 P2-INT{10«(-2+RND(l)/2))/10 

7 25 PRINT" QUALQUER TECLA PARA 

CONTINUAR- 

726 GET W$ 

730 PRINT"DIA";K:PRINT 

740 PRINT "PHOB. DE UM DIA OUENT 

E :"!lOO*Pl:''»" 

750 PRINT-PROB. DE UM DIA SECO 

:";100*P2:'t" 

760 GOSUB 1400 

7 70 Ul-RND(l) :U2-RND{1) 

780 Vl-SQR{2*(LOG(l/Ul))) 

790 W2-COS{2*PI*U2) :V3-SJ[N(2*PI 

*U2) 

800 Z1-INT(V1«V2) :22-INT(Vl«V3) 



810 A1-P1"P2:A2-P1 

820 A3-Pl+P2-Al:A4-l:F-RNDtl) 

821 HOME: IF F<-A1 THEN 830 

822 IF F>A1 AND F<-A2 THEN 870 

823 IF F>A2 AND F<-A3 THEN 810 

824 IF F>A3 AND F<-A4 THEN 950 
830 PRINT"0 TEMPO ESTA QUENTE E 

SECO" 
840 D(l)-150+Zl*25:D(2)-300+22* 
40:GOTO 970 
870 PR I NT "0 TEHPO ESTA QUENTE E 

UMXDO" 
880 D{1)-100+Z1*25:D(2)-200+Z2* 
40: GOTO 970 

910 PRINT"0 TEMPO ESTA FRIO E S 
ECO" 

920 D(l)-25O+Zl*25:D(2)-160+22* 
40:GOTO 970 

950 PRINT'O TEMPO ESTA FRIO E U 
MIDO" 
960 D(l)-2OO+Zl«25:D(2)-lO0+2 2* 

40 

970 FRINT'DEMANDA DE BATATAS AS 

SADAS-" ;D(1) 

980 PRINT'DEMANDA DE LATAS DE C 

0CA-";DC2) 

1000 PRINT" JOGADOR GANHO CUST 

OS LUCRO" 

1010 GOSUB 1600 

1020 NEXT K 

1030 FOR I-l TO 2000:NEXT 

1090 HOME 

1100 PRINT' RESULTADO FINAL APO 

S 10 DIAS "rPRINT.PRINT 

1110 PR INT "JOGADOR", "LUCRO TOTA 

L" 

1120 FOR J-1 TO N 

1130 PRINT J,TT{J) :NEXT J 

1140 PRINT : PRINT: PRINT" FIM DE J 

OGO" 

1150 END 

1400 PRINT:PRINTTAB(5) ;'SEU PEO 

IDO POR FAVOR" : PRINT 

1410 FOR J-1 TO N 

1420 PRINT"J0GADOR"i J:PRINT 

1430 INPUT'NUMERO DE BATATAS" sO 

(l.J) 

1440 INPUT'NUMERO DE LATAS DE C 

OCA COLA' .0(2, J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J-1 TO N 

1610 FOR I-l TO 2 

1620 L-0{I,J) 

1630 IF DdXL THEN L-D(I) 

1650 RV(I)-C2(I)*L 

1670 TC{I)-CI(I)*0(I,J) 

1680 IF D(I)<-L THEN BC(I)-TC(I 

)-C3(I)«(0(I, J)-D(I)) 

1700 P{I)-RV(I)-TC(I) 

1710 TP(I,J)-TP(I,J)+P{IJ 

1720 NEXT I 

1730 TT(J)-TP{l,J)+TPt2,J)-200 

1740 E-RU(1)+HV{2) 

1750 C-TC{l)+TC{2)+20 

1760 P-P(l)+P(2)-20 

1770 PRINT TAB(2) ; J;TAB(9) iE;TA 

B(17) ;C:TAB(25) ;P 

17B0 NEXT J 

1790 RETURN 



D 

10 PI-4*ATNC1} 

20 CLS 

30 PRINT €10. "batata quente":PR 

INT:PBINT 

580 Ci(l)-.1;C1(2)-.15 

590 C2 (1)-.5:C2(2)-. 25 

600 C3C1)-.01:C3(2)-.12 

620 INPUT'QUANTOS JOGADORES (1- 

6) "iN 

625 IP ti<:l OR N>6 THEN 620 

630 FOR I-l TO 2: FOR J-1 TO N 

640 TPd.Jj-O 

650 NEXT J, I 

700 FOS K-1 TO 10 

710 Pl-INT(10*(.3+RND(0)/2))/10 

720 P2-INT(10*{.2-RND(0)/2))/10 

7 25 PRINT" QUALQUER TECLA PAHA 

CONTINUAH" 

726 IF INKEYS^"" THEN 726 

730 PBINT"dia" jK:PRINT 

740 PRINT" PHOB, PE UM DIA QUENT 

E :-!l00*Pli"t" 

750 PRINT"PHOB. DE UM DIA SECO 

: " ; 100*P2 ; "*" 

760 GOSUB 1400 

7 70 Ul-RND(O) :U2-RND{0) 

760 Vl-SOR(2*CLOGtl/U13) ) 

790 y2»COS{2*PI*U2) ;V3-SIN(2*PI 

"02) 

BOO Zl-INT(Vl«y2) :Z2-INT(V1*V3) 

810 A1-P1*P2:A2-P1 

820 A3-P1+P2-A1 :A4-1 :F=BNDtO) 

821 CLS: IF F<-A1 THEN 830 

822 IF F>A1 AND F<-A2 THEN 070 

823 IF F>A2 AND F<=A3 THEN 810 

824 IF F>A3 AND F<-A4 THEN 950 
830 PRlNT-0 TEMPO ESTA QUENTE E 

SECO" 
840 Da)=150+21*25:D(2)=300+Z2* 
40: GOTO 9 70 
870 PRINT'O TEMPO ESTA QUENTE E 

UMIDO" 
880 D(l)-100+Zl«25:D(2)-200+Z2'' 
40;GOTO 970 

910 PRINT"0 TEMPO ESTA FRIO E S 
ECO" 

920 D<l)-250+Zl*25:O(2)*160+Z2* 
40: GOTO 970 

950 PRINT"0 TEMPO ESTA FRIO E U 
MIDO" 

960 D(l)=200+Zl*25:D(2]-100+22* 
40 

970 PHINT'DEMANDA DE BATATAS AS 
SADAS-' ;D(1) 

980 PRINT "DEMAWDA DE LATAS DE C 
0CA-";D(2) 

1000 PRINT-JOGADOR GANHO CUST 
OS LUCRO" 
1010 GOSUB 1600 
1020 NEXT K 

1030 FOR I-l TO 2000:NEXT 
1090 CLS 

1100 PRINT" RESULTADO FINAL APO 
S 10 DIAS ": PR INT: PRINT 
1110 PRINT" JOGADOR". "LUCRO TOTA 
L" 

1120 FOR J-1 TO N 
1130 PRINT J.TT(J):NEXT J 
1140 PRINT;PRINT:PRINT"FIM DE J 
OGO" 
1150 END 




1400 PRINT:PHINTTAB(5) ; "aeu ped 

ido por favor": PRINT 

1410 FOR J-1 TO N 

1420 PRINT" JOGADOR" !J:PEINT 

1430 INPUT'NUMEHO DE BATATAS" jO 

(l.J) 

1440 INPUT"NUMERO DE LATAS DE C 

OCA COLA"; 0(2, J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J-1 TO N 

1610 FOR I-l TO 2 

1620 L=0(I,J) 

1630 IF DtlKL THEN L-'D(I) 

1650 RV(I)=C2(I)*L 

1670 TC(I)-C1 (I)*0(I. J) 

1680 IF DCI)<=L THEN RC(I)-TC(I 

)-C3 (I) «(OCI. J) -D(I) J 

1700 P(I)-RVa)-TC(I) 

1710 TP(I, J)-TP (I, J)+P(I) 

1720 NEXT I 

1730 TT(J)-TP(1, J)+TP(2. J)-200 

1740 E-RVfl)+BV(2) 

1750 C»TCfl)+TC(2)+20 

1760 P-P(l)+Pt2)-20 

1770 PRINTUSING" • llt-tl 

•til. It ♦t#.##";J.E.C.P 



1780 NEXT J 
1790 RETURN 

O programa focaliza os lucros e per- 
das de uma empresa do setor de aJimen- 
tos, oferecendo ao usuario a oppao de 
atuar sozinho ou de negociar com ate 
cinco outros "comerciantes". 

O usudrio tamWm pode jogar no lu- 
gar de outras pessoas, lomando decisoes 
diferentes conforme o papel assumido 
— o que Ihe d& a oportunidade de com- 
parar os resultados que obtem, agindo 
cautelosameme ou se arriscando em lan- 
ces oosados. Tendo feito sua escolha, ele 
deve fornecer o niimero de participan- 
tes ao programa. 



ELEMENTO DE ACASO 



Cada jogador administra urn bar que 
vende batatas assadas e latas de refrige- 
rante. A demanda por um ou por outro 
produto depende do clima. Se esta fa- 





zendo frio, aumenta a procura pelas ba- 
tatas; se faz calor, compra-se mais re- 
frigerante. Infelizmente, o gerente pre- 
cisa adquirir o estoque na v^spera, des- 
conhecendo, portanto, o tempo que vai 
fazer. Pode contar, ate certo ponto, com 
o servigo de meteorologia, que costuma 
acertar, em media, 70% de suas previ- 
soes. Ap6s dez dias de compras e ven- 
das, administrador que obiiver maior 
lucro vence. 



PREViSOES 



A primeira parte do programa (ate a 
linha 650) cuida das variaveis que con- 
trolam a tela e as condigoes de compra 
e venda. Voce paga urn aluguel de $ 20 
por dia. As batatas custam $ 0,10 ca- 
da e sao vendidas a $ 0,50. G refrige- 
rante custa $ 0, 1 5 para compra e $ 0,25 
para venda. As sobras do estoque de 
um dia para outro sao vendidas a um 
prefo mais baixo — $ 0,01, as batatas 
e $ 0,12, o refrigerante. Cada partida 
dura dez dias. 

O indicador da demanda de cada pro- 
duto, conforme o clima, esta na tabela 
da pagina ! 185. Aqui entra um elemen- 
lo importante do modelo. Naturalmen- 
te, OS dias melhores para a venda de ba- 
tatas assadas sao os piores para a ven- 
da de refrigerantes e vice-versa, Contu- 
do, ha uma demanda suficiente para 
manter as vendas de ambos os produ- 
tos. Tudo depende de como aproveita- 



mos as informagoes fornecidas pelo ser- 
vigo de meteorologia, sempre tendo em 
memc, portm, que as previsoes nao sao 
totalmente confiiveis. As probabllida- 
des para um dia quente e seco sao de- 
terminadas nas linhas 710 e 720, e de- 
pois utilizadas para simular as condicoes 
do tempo (linhas 810 a 824). 



VAfllAVEIS ALEATORIAS 



As linhas 770 a 800 contem um me- 
todo sofisttcado para gerar variaveis 
aleatorias de distribuipao normal. Elas 
sao empregadas para simular a deman- 
da na linha 840. A linha 770 cria duas 
variiveis aleatorias (Ul e U2), proces- 
sadas por meio de tres formulas mate- 
miticas, Na linha 780, Ul e invertida e 
depois elevada ao quadrado; em segui- 
da, calculamos o seu logaritmo natural 
e a raiz quadrada dcste VI. A linha 790 
faz V2 igual ao co-seno de uma circun- 
ferencia de raio U2, e V3 igual ao seno 
dessa circunferencia. VI, V2 e V3 so- 
frem um processamento adi clonal na li- 
nha 800 para resultar nas variaveis nor- 
mals Zl e 22. 

As linhas restantes do programa cui- 
dam da entrada e da impressao dos re- 
sultados na tela. 

Para ser bem-sucedido neste jogo e 
preciso cuidar de cada centavo. Os gas- 
tos podem ser assustadoramente proxi- 
mos dos ganhos — mesmo apos dez dias 
de atividade. 



INDICADOR DE DEMANDA 
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Quente e Omido 
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AVALANCHE: 




At^ agora, Willie s6 podia pular 
verticalmente. A rotina deste artigo 
vai tornd-lo capaz de saltar d 
frertte, ultrapassando os obst^culos 
como urn ^gil cabrito months. 



r 



Esta e a parte final da serie de reti- 
nas que cuidam dos movimentos de Wil- 
lie. Finalmente, veremos nosso persona- 
gem nao so subir a encosta e se desviar 
das pedras, como tambem saltar sobre 
OS buracos e as cobras. 




10 


REM 


ora 59472 


20 


REM 


■f j cp 129 


30 


REM 


^r nz.Bfb 


40 


REM 


inc a 


50 


REM 


Id (57335) ,a 


60 


REM 


Id hi, (57332) 


70 


REM 


Id de, 22561 


80 


REM 


add hl.de 


90 


REM 


Id a. (hi) 


100 


REM 


cp 43 


110 


REM 


jv z.m6y 


120 


REM 


cp 44 


130 


REM 


jr nz.mfa 


140 


REM 


id hi, (57332) 


150 


REM 


dec hi 


160 


REM 


id (57332) .hi 


170 


REM 


Ufa Id hi, C57332) 


180 


REM 


Id de, 32 


190 


REM 


abc hi ,de 


200 


REM 


Id (57332) .hi 


210 


REM 


Id be, 57072 


220 


REM 


Id de,515 


230 


REM 


Id a, 40 


240 


REM 


call 58970 


250 


REM 


ret 


260 


REM 


mfb cp 132 


270 


REM 


jr z.mfd 


280 


REM 


inc a 


290 


HEM 


Id (57335). a 


300 


REM 


Id a, (57334) 


310 


REM 


cp 1 


320 


REM 


jr z,infc 


330 


REM 


Id hi, (57332) 


340 


REM 


Id be, 16384 


350 


REM 


Id a, 45 


360 


REM 


Id de,515 


370 


REM 


call 56970 


380 


REM 


inc hi 



390 


REM 


Id (57332), hi 


400 


REM 


Id be, 57000 


410 


REM 


Id a. 40 


420 


REM 


Id de,259 


430 


REM 


call 58970 


440 


REM 


Id a,l 


450 


REM 


ld(57334) ,a 


460 


REM 


ret 


47 


REM 


mfc Id hi, (57 


4S0 


REM 


Id be, 57016 


490 


REM 


Id a. 40 


500 


REM 


Id de.514 


510 


REM 


call 58970 


520 


REM 


inc hi 


530 


REM 


Id (57332), hi 


540 


REM 


id de, 22592 


5S0 


REM 


add hl.de 


560 


REM 


Id a, (hi) 


570 


REM 


cp 44 


580 


REM 


ir nz.Mcf 


590 


REM 


Id a,0 


600 


REM 


id (57335). a 


610 


REM 


Id a, 3 


620 


REM 


Id b,5 


630 


REM 


call BCi 


640 


REM 


Bcf Id a,0 


650 


REM 


Id (57334), a 


660 


REM 


i;et 


670 


REM 


ufd Id a.O 


660 


REM 


Id (57335), a 


690 


REM 


Id hi, (57332) 


700 


REM 


dec hi 


710 


REM 


Id be, 16384 


720 


REM 


Id a, 45 


730 


REM 


Id de,514 


740 


REM 


call 58970 


750 


REM 


Id de,33 


760 


REM 


add hl.de 


770 


REM 


Id (57332). hi 


780 


REM 


Jp 59153 


790 


REM 


oro 59S95 


800 


REM 


BCi ret 


eio 


REM 


org 59330 


820 


REM 


Bdy « 
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SAINDO DO CHAO 



SALTO A FRENTE 



SUBIDA DA ENCOSTA 



TERRA FIRME 



CHECAGEM 



DA SEGURANCA 



AVANCANDO PQSICOES 

AITERACOES DO 

ESCORE 



AJUSTES FINAIS 



Quando o programa chama esta ro- 
tina pela primeira vez, o acumulador 
contem 1 29. Esse valor e armazenado na 
posifao 57335 da memoria quando as te- 
clas M e N sao pressionadas juntas. 



SAINDO 00 CHAO 



Antes de mais nada, esta rotina veri- 
fica se o acumulador contem o valor 
129. O niimero tambem poderia ser 130, 
131 ou 132 — e, se qualquer urn deies 
estiver presente, os comandos cp 129 e 
jr nz,mfb desviam o programa para o 
rotulo mfb. Na primeira vez que se cha- 
ma a rotina, porcm, o niimero no acu- 
mulador e 129. 

A larcfa seguinte consiste em incre- 
mentar o acumulador e carrega-lo de 
volta em 57335, A instrucao Id 
hl,{57332) trans fere para a posi(;ao de 
Willie de 57332 para o par HL, O par 
DE e carregado com 22561 c adiciona- 
do em HL, para que obtenliamos a cor 
da posi^ao adiante dos pes de Willie. A 
instrufao Id a,(lil> carrega no acumula- 
dor o codigo dessa cor. Em seguida, o 
codigo e comparado com 43, a cor da 
cobra. Se esse valor e encontrado, Wil- 
lie esta saltando sobre a lingua da co- 
bra, e, fatalmente, leva uma picada e 
morre. A instrufao jp 2,mdy desvia en- 



tao a rotina para o rritulo mdy, que pro- 
videncia a eliminagao de Willie. 

Se ele nao morreu, o programa com- 
para a cor da posifao adiante de sens pes 
com 44, a cor da terra. Se nao h^ essa 
cor na ("rente de Willie, a instruijao jr 
nz,mfa desvia o programa para a roti- 
na mfa. Caso contrario, a posicao de 
Willie e diminuida de urn. 

Em mfa, a posii;ao de Willie € colo- 
cada em HL. DE e carregado com 32 e 
subtraido de HL, para mover o apon- 
tador um caractere acima na tela. Esse 
valor e colocado de volta em 57332. 

O par BC i: carregado com 57072, o 
endere(;o inicial para os dados de uma 
das figuras de Willie no saiio para a 
frente. O par DE e carregado com 515, 
para especificar que um bloco dois por 
(res sera impresso — 2 x 256 + 3 = 515. 
A cor de Willie — 40, azul sobre ciano 
— e carregada com A, e a rotina de im- 
pressao e chamada. 

Na proxima vez que ela for chama- 
da, o acumulador conterA 130. Logo, o 



processador pulara a primeira parte, 
executando-a a partir do r6tulo mfb. 
Essa pequena rotina come^a com um 




teste. O conteiido do acumulador ^ com- 
parado com 132. Se esse valor estd pre- 
sente, a rotina mfd e chamada. Portan- 
to, case o acumulador contenha 130 ou 
131, a rotina acionada e a mfb. 

A primeira coisa que mfb faz i incre- 
mentar A e carregar o resultado de vol- 
ta em 57335. 

Em seguida, a variavel da caminha- 
da e carregada da posi^ao de memoria 
57334 para o acumulador. Com isso, in- 
forma-se ao processador qual das duas 
figuras de Willie e necessaria. 

O conteiido do acumulador e compa- 
rado com 1. Se 1 esta presente, o pro- 
grama salta para o rotulo mfc e impri- 
mc a figura de Willie com as pernas 
aberias. Antes que ela seja impressa, 
qualquer vestigio da figura anterior dc- 
ve ser apagada. Para isso, a posi?ao de 
Willie e transferida de 57332 para o par 
HL. O par BC e carregado com 16384, 
inicio da tela. A e carregado com 45, 
para selecionar a cor ciano sobre ciano, 
e o pa^DE, com 515, para selecionar um 
bloco dbis por tres — 2 x 256 + 3 = 
5 1 5. A rotina de impressao de bloco em 
58970 e chamada, apagando a figura an- 
terior de Willie. 

HL e incrementado, movetido o 
apontador de tela para a proxima posi- 
cao. Esse valor e colocado de volta no 
apontador do enderei^o 57332, ajustan- 
do-o tambem. BC e carregado com 
57000, que e o inicio dos dados para a 
figura de Willie com as pernas juntas. 
A e ajustado com 40 — cor azul sobre 
ciano. DE e ajustado com 258 — o blo- 
co de um por dois caracteres. 

Impressa a figura de Willie, A e car- 
regado com 1 . Esse valor e armazenado 
em 57334, para que, na proxima vez. a 
outra figura seja impressa. 



WILLSE AVANCA 



Quando a rotina for chamada nova- 
mente, a variavel da caminhada em 
57334 contera 1 e o processador ira di- 
retamente para o rotulo mfc. Nessa ro- 
tina, par HL e carregado mais uma vez 
com a posi^ao de Willie. BC e carrega- 
do com 57016, enderego inicial para 
OS dados da figura do personagem com 
as pernas abertas. A e ajustado de no- 
vo com 40. e DE, com 515 — a figura 
de Willie com as pernas abertas ocupa 
um bloco de dois por dois. A rotina de 
impressao e chamada, e Willie e impres- 
so com as pernas abertas. 

Observe que HL nao foi incrementa- 
do nesta parte da rotina porque Willie 
ocupa, agora, duas posicoes. Ele avan- 
tou, portanto, aproximadamente meta- 
de de um caractere. 



Uma vez que a figura tenha sido im- 
pressa, o apontador de tela em HL e 
57332 e incrementado, fazendo com que 
Willie efetivamente avance. 



SUBIDA DA ENCOSTA 



Em seguida, devemos verificar se 
Willie esta pisando na encosta ou nao. 
DE e carregado com 22592, que & adi- 
cionado k posiijao de tela em HL. Com 
isso, ele passa a apontar para a cor da 
posi^ao abaixo dos p^s de Willie. A ins- 
tru«;ao Id a,(lil) carrega essa cor no acu- 
mulador, onde e comparada com 44. Se 
a cor da encosta nao se encontra em A, 
Willie esta no cspa^o aberto — e a ins- 
truijao jr nz.mcf manda o processador 
para o rotulo mcf. 

Mas,se o acumulador contem a cor 
da encosta, Willie conseguiu subir um 
aclive, merecendo um niimero adicional 
de pontes. £ precise, entao, interrom- 
per o salto e atualizar o escpre. Para is- 
so, € carregado em A e armazenado 
no endcrego 57335. O valor 3 e carrega- 
do em A e 5 em B. Esses par^metros se- 
rao utilizados por outra rotina, scl — ou 
incremento do escore. Na verdade, adi- 
cionaremos o valor 50 ao escore, O nu- 
mero 5 sera adicionado a coluna das de- 
zenas, que e a terceira a pariir da esquer- 
da. Em seguida, a rotina sci e chamada 
— como ela ainda nao foi digitada, co- 
locamos um ret provis6rio em seu ende- 
reijo inicial. 

Uma vet marcados os pontos, A i 
carregado com e armazenado em 
57334, quer Willie esteja pisando na en- 
costa ou nao, Indica-se, assim, que a 
proxima figura a ser impressa e a do per- 
sonagem com as pernas juntas. 



TERRA FIRME 



Quando todas as figuras de Willie sal- 
tando ja tiverem sido exibidas na tela, 
a variavel de salto em 57335 terA o va- 
lor 132. Portanto, na proxima vez que 
a rotina de movimenta<;ao for chama- 
da, o programa ira dircio para a ultima 
rotina que comega com o rbtulo mfd, 
Essa rotina comeija igualando a varia- 
vel de salto a 0. O valor e carregado 
tambem em A e armazenado em 57335. 
A seguir, a posiijao de Willie na tela e 
decrememada. 

O par BC t carregado com 16384, en- 
dereijo do inicio da tela. A e igualado 
a 45, o codigo de ciano sobre ciano, e 
o par DE traz 514 para um bloco de dois 
por dois. 

Chamando a rotina de impressao de 
bloco, apagaremos Willie da tela. O par 



DE e carregado com 33 e adicionado em 
HL, Com isso, movemos o apontador 
uma linha para baixo, colocando Wil- 
lie de novo em terra firme. O rcsultado 
e armazenado em 57332. 

Finalmente, a rotina dc movimenta- 
Cao d acessada pela instrupao jp. Essa 
rotina imprimira Willie novamente de pe 
em sua posi(;ao sobre o solo, e pesqui- 
sard o teclado. 



10 


ORG 20321 


2t> 


MFJ CMPA *129 


20 


BNE MFB 


40 


INC 18261 


50 


LDX 18249 


60 


LEAX 290, X 


70 


LDA ,X 


80 


CMPA #357 


90 


LBEQ MDY 


100 


J3R MFZ 


110 


LDX 18249 


120 


LEAX -255.x 


130 


STX 18249 


140 


LDU 117814 


150 


JSR CKAEPR 


160 


LEAX 2 54,X 


170 


LDU 117846 


180 


JSR CHAHPH 


190 


RTS 


200 


MFB CMPA #130 


210 


BNE MFC 


220 


INC 18261 


230 


JSR MFZ 


240 


LDX 18^49 


2S0 


I.EAX -25 5, X 


260 


STX 18249 


270 


LDU #17870 


280 


JSB CHARPR 


290 


LEAX 254, X 


JOO 


JSP CHARPR 


310 


LEAX 254.x 


320 


JSR CHABPR 


330 


LDX 18249 


340 


LEAX 864. X 


350 


LDA ,X+ 


360 


CMPA ISFF 


370 


BEQ MFF 


3B0 


LDA ,X 


390 


CMPA ISFF 


400 


BEQ MFF 


410 


RTS 


420 


MFF LDA 14 


430 


LDB #5 


440 


JSH SCI 


450 


HTS 


460 


MFC CMPA 1131 


470 


BNE MFD 


480 


INC 18261 


490 


JSR MFZ 


500 


LEAX 254.x 


510 


LDU #1536 


520 


JSR CHARPR 


530 


LDX 18249 


540 


LEAX 25 7.x 


550 


STX 18249 


560 


LDU #17014 


570 


JSR CHARPR 


580 


LEAX 254, X 



590 


LDU 117846 


600 


JSR CHMlPEt 


610 


RTS 


620 


MFD CMPA 1132 


630 


BNE MFE 


640 


JSR HFZ 


650 


LDX 18249 


660 


PSHS X 


670 


LEAX 512. K 


680 


LDY ,X 


690 


PULS X 


700 


CMPY 155555 


710 


BNE MFE 


720 


LEAX 1,X 


730 


STX 18249 


740 


MFE CLB 18261 


7b0 


CLH 18251 


760 


LDX 18249 


770 


LDU 117 774 


780 


JSR fHABPR 


790 


LEAX 254.x 


800 


JSR CHABPR 


BIO 


RTS 


820 


MF2 LDX 18249 


B30 


LDU #15 36 


840 


JSR CHABPR 


8!>0 


LEAX 2 54.x 


860 


JSR CHABPR 


670 


UTS 


8K0 


CHABPR EQU 19402 


890 


SCI EQU 20751 


900 


MDY EQU 20126 



qilencia, a segunda pane desta rotina se- 
rh chamada na pr6xima vez. 

A instrugao LDX 18249 transfere a 
posigao de Willie de 18249 para X. O 
numero 290 6 adicionado para indicar 
o byte adiante dos pes do personagem. 
LDA y\ carrega o conteudo desse byte 
no acuniulador e a instrugao CMPA 
#$57 compara-o com $57, a cor grafi- 
ca para a lingua da cobra. Se houver es- 
sa cor na frente de Willie no momento 
do saJto, ele sera picado e morrera. Ca- 
berd k instrupao LBEQ MDY comandar 
a execu^ao da rotina da morle. 

Se nosso personagem ainda esta vi- 
vo, o processador vai para a rotina 
MFZ, que apaga o^ dois caracteres abai- 
xo de Willie — para que os pes da figu- 
ra anterior nao permanegam ali. 

A posifao de Willie, transferida ou- 
tra vez de 18249 para X. e subtraida de 
255, para mover a posigao um caracte- 
re para cima, A nova posigao na tela e 
armazenada de volta em 18249. 

O registro U e entao carregado com 
17814, enderego inicial para os dados da 
figura com as pernas abertas. Lembre- 
se de que U e usado como apontador de 
dados pela rotina CHARPR. Essa roti- 



na, que utiliza os dados como pilha do 
usudrio, e chamada; X e somado a 254, 
movendo-se para a posigao inicial da 
metade inferior de Willie. U e carrega- 
do com 17846, o inicio dos dados para 
a metade inferior da figura, e CHARPR 
e chamada mais uma vez, imprimindo 
Willie sobre a encosta. 



SAINDO DO CHAO 



Quando a rotma de movimentagao 
for chamada de novo, o acumuiador 
contera 130, e a rotina MFB sera exe- 
cutada, Nas chamadas posteriores, o 
acumuiador contera um valor maior e 
as instrucoes CMPA # 130 e BNE MFC 
desviarao o fluxo de processamento pa- 
ra a pr6xima parte do programa. Como 
sempre, a primeira coisa que a rotina faz 
e incrementar o conteiido de 18261 . De- 
pois, salta para MFZ, onde a metade in- 
ferior de Willie e apagada. 

A posigao seguinte do personagem e 
carregada em X e subtraida de 255 uma 
vez mais. Isso move o apontador de te- 
la um caractere acima. O reglstrador U 
e carregado com 17870 e CHARPR e 



Quando o processador executar esta 
rotina pela primeira vez, o acumuiador 
contera o numero 129. Esse numero e 
armazenado na posigao de memoria 
18261 pela primeira parte da rotina de 
movimentagao de Willie, quando M e N 
foram pressionadas simultaneamente. 



PREPARACAO DO SALTO 



De inicio, a rotina verifica se o valor 
129 se encontra no acumuiador. Se em 
seu lugar estiverem os niimeros 130, 131 
ou 132, as instrugoes CMPA #129 e 
BNE MFB desviam o programa para 
MFB, Na primeira vez que se chama es- 
ta rotina, por^m, A contem 129. 

O acumuiador e incrementado e car- 
regado de volta em 1 826 1; em conse- 




lummMMAQuiuuM 



chamada tres vezes. Entre cada chama- 
da, X 6 incrementado com 254. Impri- 
me-se, assim, uma nova figura de Wil- 
lie, em tres caracteres, Embora sua al- 
tura permaneca a mesma, o personagem 
ocupa um caractere adicional porque foi 
deslocado meio caractere para cima. 



SALVO DA PEDRA 



Willie recebe mais pontos quando se 
desvia de uma pedra, pulando por cima 
dela. E necessario, portanto, verificar se 
ha uma pedra sob a figura. 

A posifao de Willie ^ trans ferida de 
18249 para X, sendo somada a 864, dc 
modo a indicar a posi^ao imediatamen- 
te abaixo. A e carregado com o valor do 
byte da tela apontado por X, e esse re- 
gistrador e incrementado. 

O byte da tela no registrador A e 
comparado com $FF, a cor grafica da 
pedra. Se ela estiver presente, o proces- 
sador vai para o rotulo MFF. Case con- 
trdrio, pr<5ximo byte t carregado c 
comparado. Se a pedra estiver aJi, o pro- 



cessador passa para o r6tuIo MFF; se 
nao, ele retorna. 

A rotina MFF atualiza os pontos. A 
e carregado com 4, para indicar o digi- 
to que sera ajustado — o quarto a par- 
tir da esquerda (dezenas). B € carrega- 
do com 5. A seguir, o programa saita 
para a rotina SCI, que tem a fun^ao de 
adicionar 50 pontos ao escore. Como 
ainda nao digitamos essa rotina, conv^m 
colocar RTS em sua posii;ao inicial, pa- 
ra evitar um erro no programa. 



WILLIE AVANCA 



Na prdxima vez que a rotina de mo- 
vimenta«;ao e chamada, o acumulador 
contem 131. Caso esse valor nao esteja 
presente, o programa € mandado para 
o r6tulo MFD, pois o salto de Willie se 
encontra numa etapa mais adiantada. 

Novamente, a primeira coisa que a 
rouna faz 6 incrementar a variavel de 



salto em 18261. Quando a rotina voltar 
a ser chamada, o processador ira execu- 
tar diretamente a parte seguinte. 

Na seqiiencia, o programa saJta pa- 
ra a rotina MFZ, que apaga os caracte- 
res superior e imermediario de Willie, 
Seus pes serao apagados com um carac- 
tere do ecu pela pr6xima rotina. Esse 
trabaiho de limpeza adicional precisou 
ser feito porque Willie tinha ires carac- 
teres de altura na ultima vez. 

A posicao em X, que foi ajustada du- 
rante a execu?ao da rotina MFZ, e in- 
crementada com 254, movendo o apon- 
tador para os pes de Willie. O aponta- 
dor de dados em U e carregado com 
1536, o endere?o do ceu limpo, no can- 
to superior esquerdo da tela. CHARPR 
e chamada e imprime o caractere de ceu. 

A posicao anterior de Willie e carre- 
gada de 18249 paia X e adidonada a 257, 
movendo-se um caractere para baixo. 







I 



O apontador de dados em U e nova- 
mente carregado com o enderepo inicial 
da figura de Willie com as pernas aber- 
tas em 17814. A rotina CHARPR im- 
prime sua metade superior. O aponta- 
dor de tela em X e incrementado, mo- 
vendo-se para a linha de baixo. U e car- 
regado com o endercHjo dos dados para 
a metade inferior da figura e CHARPR 
i chamada, realizando a impressao. 



TERRA FIRME 



O valor 132 no acumulador desvia o 
processador para a rotina que faz Willie 
pisar novamente em terra firme. Se nao 
houver esse valor em A, o processador 
vai para o rotulo MFE — o que nunca 
deve ocorrer. Um conteiido de A menor 
que 132 indica que o processador ficou 
executando aiguma das rotinas anterio- 
res. Isso acontece se a variavel de salto 
em 18261 — endere^o de onde vem o va- 
lor de A — ainda nao foi incrementada. 
Temos, assim, um bom dispositive de 
prevenfao de erros: caso haja um valor 
incorreto em 18261, o processador sai- 
ta diretamente para a instru^ao de lim- 
peza, que reajusta esse enderefo com 0. 

Se o numero em A e 1 32, o processa- 
dor continua com esta rotina. Inicial- 
mente, ele vai para a rotina MFZ, que 
apaga a ultima figura de Willie. Em se- 
guida, a posi?ao de Willie e carregada 
de 18249 para X. O apontador de tela 
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em X d guardado na pilha, e somado a 
512, passando a aponur para o carac- 
tere imediatamenie abaixo dos pes de 
Willie. Os dois bytes saq carregados no 
registrador Y e o apontador de tela ori- 
ginal e recuperado da pilha de volta pa- 
ra X. 

O conteudo de Y ^ comparado com 
$5555, o valor de um espago amarelo na 
tela — ou seja, de um buraco. Se esse 
valor nao estiver presente, o processa- 
dor vai para o r6tulo MFE 

Se ha um buraco ali, fiosso persona- 
gem precisa de ajuda, X e entao incre- 
mentado e colocado de volta em 1 8249, 
onde esta o apontador de posifao. 

Como voce notard, nenhuma verifi- 
cacao e feita quando Willie volta ao so- 
lo num nivel mais alto. Depois de saltar 
e avan(;ar, ele sempre aterrissa num ni- 
vel mais alto. 



10 


org 55009 


20 


up cp 129 


30 


jr nz.mti 


40 


inc a 


50 


Id (-5202) .a 


60 


Id hi, (62407) 


70 


Id de, t-5205) 


eo 


add hl.de 


90 


Id de.33 


100 


add hi .de 


110 


call 74 


120 


CP 36 


130 


3P z, 54848 


140 


cp 52 


ISO 


jr ns,ioa 


160 


Id hi, (-5205) 


170 


dec hi 


180 


Id (-5205) .hi 


190 


na Id hi, (-5205) 


200 


Id de, (62'^07) 


210 


add hl.de 


220 


puBh hi 


230 


Id de,32 









AJUSTES FINAIS 



O salto agora esta completo, Preci- 
samos, no entanto, limpar o contador 
de salto e a posi<;ao que contem o tipo 
de figura que deve ser impressa. Como 
essas posJQoes sao ajustadas com 0, o 
processador iiA para a primeira parte da 
rotina de movimentapao. 

A segao do programa apresentada 
neste artigo finaliza imprimindo Willie 
de pe, cm sua nova posigao. X e carre- 
gado com a posicao contida em 1 8249 
e U, com a contida em 17774. A rotina 
CHARPR e chamada duas vezes. A ul- 
tima- rotina, MFZ, e chamada para apa- 
gar a figura. X e carregado com a posi- 
gao de Willie em 18249 e U e carregado 
com 1536, que equivale a um espaco 
vazio. 

Para testar o programa, digite as se- 
guintes linhas: 

10 POKE 30000, 57: POKE 20647,57: 

POKE 20751,57 

20 EXEC 19426 

30 FOR L-1 TO 8: POKE 18261.129: 

FOR J-1 TO 5: EXEC 19902 

40 FOR K-1 TO lOOlNEXT K.J.L 

50 GOTO 50 



O programa destinado ao MSX foi 
dividido em duas partes para facilitar a 
montagem. 




240 

250 
260 
270 

2ao 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
690 
600 
610 
620 
630 



add hl.de 

Id a, 255 

push hi 

call 77 

pop hi 

inc hi 

Id a. 255 

call 77 

pop hi 

Id a, 5 

push hi 

call 77 

pop hi 

inc hi 

Id a, 7 

push hi 

call 77 

pop hi 

Id de,32 

abc hi ,de 

Id a, 6 

puBh hi 

call 77 

pop hi 

dec hi 

Id a, 4 

call 77 

Id hi, (-5205) 

Id de,32 

abc hl.de 

Id (-5205). hi 

ret 

Db cp 132 

jp z, 55 2 75 

inc a 

Id (-5202), a 

id a, t-5203) 

cp 1 

jp 2,55194 

Id hi , (-5205) 



640 Id de, (62407) 

650 add hi ,de 

660 Id a. 255 

670 puah hi 

680 call 77 

690 pop hi 

7O0 Id de,32 

710 add hl,de 

720 Id a, 255 

730 puBh hi 

740 call 77 

750 pop hi 

760 inc hi 

770 id a.l 

780 push hi 

790 call 77 

800 pop hi 

810 Id de.32 

820 sbc hi ,de 

830 id a,0 

640 call 77 

850 Id hi, (-5205) 

860 inc hi 

870 Id (-5205) ,hl 

660 Id 3,1 

890 Id C-5203),a 

900 ret 

910 end 



hm 



Complete agora o programa, digitan- 
do as seguintes linhas: 

10 ora 55194 

20 BC Id hi. (-5205) 

30 Id de. (62407) 

40 add hl.de 

50 Id a, 4 

60 push hi 

70 call ?7 

BO pop hi 

90 inc hi 

100 Id a, 6 

110 push hi 

120 call 77 

130 pop hi 

140 Id de,32 

150 add hl.de 

160 Id a. 7 

170 puBh hi 

180 call 77 

190 pop hi 

200 dec hi 

210 Id a, 5 

220 call 77 

230 Id hi, (-5205) 

240 inc hi 

250 Id (-5205), hi 

260 Id de, (62407) 

270 add hl.de 

280 id de,64 

290 add hl.de 

300 call 74 

310 cp 52 

320 jr nz.BB 

330 Id a.O 

340 Id (-5202) ,a 

350 Id a, 3 

360 Id b,5 

370 call 57000 

3B0 BS Id 9,0 

390 Id (-5203), a 

400 ret 

410 md Id a,0 

420 Id (-5202). a 

430 Id hi, (-5205) 

440 Id de, (62407) 

450 add hi ,de 

460 push hi 

470 id a, 256 

480 call 7 7 

490 pop hi 

500 dee hi 

510 Id a, 255 

520 push hi 

530 call 77 

540 pop hi 

550 Id de,32 

560 add hi.ae 

570 Id a. 255 

580 push hi 

590 call 77 

600 pop hi 

610 inc hi 

620 id a. 255 

630 call 77 

640 Id hi, (-5205) 

650 Id de.32 

660 add hl.de 

670 Id C-5205),hJ 

680 jp 54603 

690 ret 

700 end 



Na primeira vez que o processador 
chama a rotina, o acumulador contem 
129. Esse riimcro e armazenado na po- 
si^ao de niem6ria - 5202 quando as te- 
clas M e N sao pressionadas juntas. 



SAINDO DO CHAO 



Antes de mais nada, a rotina verifi- 
ca se o valor que esia no acumulador e 
129. O numero em A poderia ser tam- 
bim 130, 131 ou 132. Caso urn desses 
numeros esteja presente, as instrucoes cp 
129 ejr nz.mb desviam o programa pa- 
ra o r6tulo mb. Porem, quando a roti- 
na e chamada pela primeira vez, o nu- 
mero no acumulador i 129. 

Depois dessa checagem, o acumula- 
dor e incrementado e carregado de vol- 
ta em - 5202. A seguir, o enderego ini- 
cial da Tabela de Nomes da VRAM e 
carregado em HL. A posigao de Willie 
na tela e transferida de - 5205 e - 5204 
para DE e somada em HL, Adiciona-se 
valor 33 nesse par de registros atraves 
de DE. Com isso, HL passa a apontar 
para o endere^o na TN ocupado pelo c6- 
digo do padrao que esti adiante dos pis 
de Willie. A rotina 74 da ROM ^ cha- 
mada, devolvendo a A o conteudo da 
posi(;ao da VRAM apontada por HL — 
ou seja. ela faz a Idtiira na VRAM. 

O codigo do padrao que se enconira 
adiante dos pes de Willie e comparado 
com 36, o codigo da lingua da cobra. Se 
esse valor estiver presente, Willie fatal- 
mente morrer^, pois estd saltando sob re 
a lingua da cobra e sera picado. A ini*- 
trugao jp z, 54848 manda eniao o pro- 
cessador para a rotina da morte, apre- 
sentada anteriormente com o r6tulo 
mre. Se Willie nao morreu, o processa- 
dor compara o codigo do padrao a fren- 
te de sens pes com 52, que e o padrao 
da encosta. Se o valor nao estiver pre- 
seme, a instrugao jr nz,ma desvia o pro- 
grama para a rotina ma. Caso contra- 
rio. a posigao do personagem em ~ 5205 
e decrementada. 

A rotina ma coloea a posii^ao de Wil- 
lie em HL. DE e carregado com o ende- 
rego inicial da TN da VRAM e somado 
em HL. Esse valor e guardado na pilha. 
Em seguida, o numero 32 e somado em 
HL atrave.-; de DE, e o apontador passa 
a indicar os p^s na figura anterior de 
Willie. O mimer{>255, codigo do padrao 
de ceu, t carregado em A. O apontador 
em HL ^ preservado na pilha e a rotina 
77 da ROM e chamada, escrevendo o 
valor de A no enderego da VRAM apon- 
tado por HL. Apagamos, assim, os pes 
da figura anterior de Willie. 

O ultimo valor de HL i recuperado 
da pilha e incrementado. A e carregado 



com 255 e a rotina 77 e novamente cha- 
mada. Procedemos dessa maneira por- 
que a posigao de Willie poderia ter sido 
decrementada no comego da rotina ^ 
a operagao nos da a certeza de que os 
p^s de Willie foram apagados. 

O apontador inicial e recuperado da 
pilha. Em seguida, os padroes 4, 5, 6 e 
7 sao impresses, formando a figura de 
Willie com as pernas abertas. Acompa- 
nhe apontador em HL e verifique co- 
mo isso foi feito. A posigao de Willie em 

- 5205 e - 5204 e atualizada, ja que foi 
deslocada uma posigao acima. Depois, 
o programs retorna partindo desse pon- 
to da rotina. 

Quando a rotina for chamada outra 
vez, o acumulador contera 130. O pro- 
cessador pula. entao. a primeira pane, 
indo para o rotulo mb. 

Essa pequena rotina comega verifi- 
cando o conteudo do acumulador. Se ele 
contiver 132, a rotina md e chamada; se 
contiver I30ou 131, o processador con- 
tinua executando mb. A primeira coisa 
que essa rotina faz e incremeniar A e 
carregar o resultado de voliaem -5202. 
Em seguida, a variavel da caminhada e 
carregada no acumulador. Isso indica ao 
processador qual das figuras de Willie 
e necessaria. 

O conteudo do acumulador e compa- 
rado com 1 . Se esse valor esta presente, 
o processador vai para o rotulo mc, em 
55 194, e imprime a figura de Willie com 
as pernas abertas. Se a variavel e 0, o 
processador imprime a figura de Willie 
com as pernas juntas. 

Antes de imprimir qualquer uma das 
figuras, porem, devemos apagar todos 
OS vestigios da Jmagem anterior. Para is- 
so, a posigao de Willie e transferida de 

- 5205 e - 5204 para HL. DE e carre- 
gado com enderego inicial da TN da 
VRAM e somado em HL. A e carrega* 
do com 255, o codigo do padrao de ceu. 
O apontador HL e guardado na pilha e 
a rotina 77 e chamada, apagando o 
quarto superior esquerdo da figura de 
Willie. O apontador e recuperado da pi- 
lha e somado com 32. A e carregado 
com 255. O apontador e guardado na pi- 
lha e a rotina 77 c chamada, apagando 
o quarto inferior esquerdo da figura. 
Com isso, apagamos a metade esquer- 
da da antiga figura de Willie. A outra 
metade desaparece com a impressao da 
nova figura — desta vez, com as pernas 
abertas. 

O apontador e recuperado da pilha 
e incrementado. A e carregado com I, 
o c6digo de um dos padroes da figura. 
O apontador e novamente colocado na 
pilha e a rotina 77 e chamada. Finali- 
zando, o apontador e recuperado da pi- 
lha e subtraido de 32, movendo-se um 



caractere para cima. A e carregado com 
0, o cddigo do outro padrao da figura. 
A rotina 77 e chamada e Willie e impres- 
so com as pernas juntas. 

A posi^ao de Willie e transferida pa- 
ra HL, decrementada e devolvida em 
- 5205 e - 5204. O acumulador, carre- 
gado com I, e armazenado em -5203, 
para que, na proxima vez, a outra figu- 
ra de Willie seja impressa. 



SALTO A DiSTANCIA 



Quando a rotina for chamada de no- 
vo, a variavel da caminhada contera 1 
e o processador ir^ drreiameme para o 
r6tulo mc. Nessa rotina, a figura de Wil- 
lie com as pernas abertas e impressa da 
mesma maneira que na rotina ma, so 
que sua posigao foi incrementada — ou 
seja, Willie avan?a no ar! 

Os padroes 4, 5, 6 e 7, que compoem 
a figura do personagem com as pernas 
abertas, sao colocados na TN (na tela) 
pela rotina 77, que e chamada quatro ve- 
zes. Em seguida, a posigao de Willie em 
- 5205 e - 5204 e colocada em HL, in- 
crementada e devolvida aos enderegos, 
o que faz a figura avancar mais uma 
posi^io. 



SUBIDA DA ENCOSTA 



Depois disso, devcmos verificar se 
nosso personagem esta pisando na en- 
cosia ou nao. Lembre-se de que HL ja 
contem a posi^ao de Willie. DE e carre- 
gado com o enderei;o inicial da TN e so- 
mado em HL. O numero 64 tambem e 
somado em HL atraves de DE. O apon- 
tador esta indicando a posi^ao sob os 
pes de Willie. A rotina 74 € chamada e 
faz a leitura da VRAM nessa posigao. 
O valor e comparado com 52, o c6digo 
da encosta. Se esse valor estiver presen- 
te, Willie subiu um lance na montanha. 
Para interromper salto, coloca-se em 
- 5202. O numero 3 e carregado em A 
e o 5. em B. Esses parimetros serao uti- 
lizados poT outra rotina, chamada na se- 
qiicncia, que realiza a contagem de pon- 
tes; o valor 50 sera adicionado no esco- 
re, Mas, como ainda nao digitamos es- 
sa rotina, convem colocar uma instru- 
cao ret provis6ria nesse enderego, o que 
podemos fazer por meio do comando 
BASIC POKE 57000.201. 

Se o padrao da encosta nao estiver 
presente, as intru?6es anteriores sao ig- 
noradas e o processador continua a par- 
tir do rotulo itis. 

A e carregado com e armazenado 
em -5203. Isso e feito independente- 
mente de Willie estar pisando na encos- 
ta ou n5o, e indica que a pr6xima figu- 



ra a ser impressa e a do personagem com 
as pernas juntas. 



TERRA FIRME 



Quando todas as outras figuras de 
Willie ja tiverem sido impressas na te- 
la, a variavel do salto tera o valor 132. 
Assim, quando a rotina de movimenta- 
pao for chamada novamente, o proces- 
sador ira direto para a ijltima rotina, 
que come(;a no rotulo md. 

Em primeiro lugar, md ajusta a va- 
riavel de salto com 0. Esse valor € car- 



regado no acumulador e armazenado 
em - 5202. Em seguida, a figura ante- 
rior de Willie com as pernas abertas e 
apagada — para isso, coloca-se o pa- 
drao 255 nas quatro posi^oes, por meio 
da rotina 77, A posipao de Willie e car- 
regada em HL e somada com 32 atra- 
ves do par DE. Willie volta, com isso, 
a pisar em terra firme. O resultado e ar- 
mazenado em - 5205 e - 5204. 

Finalmente, a instru^ao jp chama a 
rotina de movimentafao. Essa rotina, 
alem de imprimir a figura de Willie de 
pe sobre o solo, pesquisara o teciado 
mais uma vez. 
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FIGURAS 
TRIDIMENSIONAIS 



Com a t^cnica ensinada neste artigo, 
voce podera exibir na tela de seu micro 
diferentes objetos geometricos solidos. 
Trace o perfil da figura escolhida e 
deixe a maquina fazer o resto por voce. 




Desenhar objetos cm IrCs dimcnsoes. 
mesmo que Himetricos, e uma (arefa di- 
fkil — mas nao para quern tern um mi- 
crcK'ompuiador. Com o programa apre- 
seniado neste artigo, tudo o que voce 
tern a fazer e desenhar o perl'il de um 
dos lados da figura. A maquina comple- 
tara o trabalho, inclusive preenchcndo 
as fates do solido com tragos que per- 
mitirao uma melhor visualizagao, 

A principal furnjao do programa e 
promovcr a rolagao do perfil que voce 
definiu em torno de um eixo central. 
Pode-se. portanto, desenhar qualquer 
figura que possua sevoes circuiares — 
como vasos, garrafas, candeiabros, co- 
pos, ma<;as, laranjas, enfim, uma enor- 
me variedade de objetos. 

Como o programa roda a iinha ori- 
ginal, a figura obtida e denominada so- 
lido de revoki<;ao. As versoes para lo- 
des OS micros possibiliiam que se veja 
o produto final de qualquer angulo. As 
do Spectrum e do TRS-Color realizam 
uma pequena aiiima(;ao, girando a figu- 
ra em torno de seu eixo. 



ROTACAO OA FISURA 



Para desenhar o perfil do solido, mo- 
vimentaremos uma Iinha na tela, 



fi\ando-a quando aiingir uma posi(;ao 
considerada satisl'atoria. Essa tccnica. jii 
enipregada cm ouiros programas de IN- 
PUT, pcrmite a visualizagao de cada 
uma das elaptis do desenho. 

Foi cstabelccido um limitc de vinte re- 
tas para a dcfinigao do perfii descjado. 
Na maiaria dos caso.s, oiide se utili/am 
aperva.s cinco ou seis rctas, essa quaiui- 
dade c mais do que sul'iciente. Porem, 
se voce quiscr iragar curvas, Icra que 
construi-las com varias relas bem pequc- 
nas, podendo chegar perto daquole 
Simile. 





ANGULO DE VISAO 



Uma grande vanlagem do programa 
e permitir ao observador escolher an- 
gulo do qual quer ver a I'igura — nao 
so de cima, de baixo ou de frenie, mas 
de qualquer angulo enire 0" e 180" (um 
angulo de 70", por excmpio, mostra o 
objcto como se ete estivesse sobrc uma 
mesa). Voce pode mudar es.se angulo 
quanias vezes quiser c o micro redese- 
nhara o solido em outra posit;ao. 

O programa armazcna as coordena- 



das dc todas as iinhas. Quando voce aca- 
ba o desenho, eie fa/, a rota^ao de cada 
Iinha ao redor do eixo central, dc 18" 
em 18". Exccuia cm vinte etapas a ro- 
la(;ao completa. O angulo dc visao ja e 
levado cm conla ncsta I'asc; os circulos 
aparecem mais achalados a medida que 
nos aproximamos dos 90". 

Assim que o desenho fica pronto, o 
computador espcra que o usuiirio pres- 
sionc a barra de cspavos para escolher 
um outro angulo. 



A ANIMACAO 



No Spectrum c lambcm no TRS- 
Color, voce podera ver o objeto exccu- 
tar a rotagao, ao pressionar uma ouira 
tecla. Para isso, o computador desenha 
as posigocs intermediiirias da rota(;ao c 
as armazena na meni6ria, recorrendo a 
lecnica dc paginas graficas. Depois que 
iodas as paginas estao fciias, elas sao 
exibidas em seqiiencia, o que produz o 
efeito de animai;ao. 



UTILl^ACAO DO PROGRAMA 



Digiic o programa c tcnle iravar al- 
gumas figuras s6lida.s. C) processo dc de- 
senho consiste em movimentar o cursor 
para a posivao dcscjada e marcar o pon- 





9S PROGRAMACAO BASIC 95 



DESEMHQS EM 



TRES DIMENSOES 



CRIE ALGUMAS FIGURAS 



COMSTRUCAO DO PERFSL 



COMO ALTERAR 



lo iniciiil. A partir dai. a rcia podcra >er 
dcsiocada para qualquer lugar. Quandn 
voce Oliver saiist'eiio com sua locali/a- 
t;ao. use uiiia tccla para fixa-la. Prassi- 
ga assim ate tcrminar o pertll da iigii' 
ra. Para indicar ao micro que o desenho 
esia promo, voce devera p^e^sionar uma 
outra teela. 

No Spectrum, use as pr6prias teclas 
do cursor para mover a iinlia, M para 



para tlxar a reta. Pressionc ao tcrmi- 
nar o descTiho. 

No TRS-Color, as tcdas do cursor 
lambcm dirccionam a tinha; <HN- 
rKR> marca o ponlo iiticial, a barra 
de cspacos fixa a reia c \ finaliza a 
rig lira. 

Para o MSX, use as setas para des- 
kicar a liiilia, [ para inicializar o dc^e- 
iilio, a barra de espa(,-os para fixar a rc- 
la c V para tmaliz;ir. As leclaNR e I) per- 
niiietn tjuo voce desenhc mais rapido ou 
l)^ai^ dcvagar. 

No Apple e no TK-2000, use Z X : 
c . para niovimentar a liiiha. Os autros 
comandos sao iguais aos do MSX. 



ID PRINT AT 0.10; INK 
PAPER 5;"ROTACAO 3D": PAUSE 

100 
20 PAUSE 2500 

30 CLEAR 30000 r PAPER 0: INK 
5: CLS : POKE 2 3658,0 
40 GOSUB 2000: BORDER 
50 PRINT AT 0.0; PAPER 6; INK 
0:" MOVER LINHA = TECLAS DE C 
URSOR {CAPSHJFT P/MAIOR VELO 
C.) 

60 PRINT : PRINT PAPER 6; 
INK 0:" FIXAR LINHA = ENTER 

-' '" FIXAR CURSOR - 
M FIM - Q 
70 INPUT "ANGULO DE OBSEHVACA 
(0-180}";lr IF i<0 OH l>ie0 
THEN GOTO 70 

80 PLOT 60,100; DRAW 135,0: 
DRAM 0,-49: DRAW -13S.0: DRAW 
0.49 

90 LET 13-SIN (i/ieO«PI) 
100 LET bf = 0: LET aS = " 
110 LET x=l28: LET y-Sl 
120 LET xx=x: LET yy-y 
130 OVER 1 

140 PLOT x.y: DRAW KX-x.yy-y 
150 PLOT x.y: DRAW xx-x,yy-y 
160 LET zS=INKEY3: IF z$="" 



ANGULO DEVISAO 



ROTACAO DA FIGURA 



COMO FUNCIONA PROGRAMA 
AS TRES ROTINAS 



PRiNCIPAIS 



THEN GOTO 140 

]70 LET E'CODE zS 

180 IF 2=13 THEN GOSUB 500 

190 IF !=113 THEN GOTO 600 

195 IF z=l09 AND bfOl THEN 

PLOT 255-x,v: LET x=xx: LET y 

yy: LET bf=l 

200 IF z=53 AND xx>i28 THEN 

LET xx=xx-l 

210 IF z=8 AND xx>130 THEN 

LET xx~xx~2 

220 IF z-55 AND yy<100 THEN 

t.ET yy=yy+l 

230 IF z=ll AND yy^98 THEN 

LET yy=yy*2 

240 IF z=56 AND xx<195 THEN 

LET XX — HX*^! 

250 IF 2=9 AND xx<194 THEN 

LET xx=xx+2 

260 IF z=54 AND yy>52 THEN 

LET yy=yy-l 

270 IF z=10 AND yy>51 THEN 

LET yY=yy-2 

280 GOTO 140 

500 OVER 0: PLOT X.y: DRAW xx- 

x,yy-y 

510 PLOT 255-x,y; DRAW x-xx,yy 

-y 

520 LET x=xx: LET y=yy; LET a$ 

=a$-*-CHR$ (x-128)+CHH$ (Y-51): 
OVER 1 : RETURN 

600 INK 7: CLS ; OVER 0; DIM . 
(20.2) 

610 FOR a=0 TO 7 
620 PRINT AT 21, 7 j PAPER 2; 
BRIGHT Ij "DESENHANDO FIGURA -j 
a+1 

630 GOSUB 10 00 
640 IF aOO THEN GOTO 670 
650 PRINT AT 19,0; INVERSE 1;" 
<SPACE> F/ ALTERAR ANGULO DE 
OBSERVACAO - QUALQUER OUT 
HA TECLA PARA CONTINUAR. 

660 LET XS = 1NKEYS: IF XS = ''- 

THEN GOTO 650 

662 IF )i&<>' " THEN GOTO 670 

664 INPUT -DIOITE NOVO ANGUL 

(O-ieO)";! 

666 IF KO OR i>ie0 THEN GOTO 

662 

668 CLS : LET is-SIN Ci/180'PI 

) : GOTO 620 

670 GOSUB 1600 

680 CLS 

69D NEXT a 

700 PRINT AT 20,11: PAPER 7; 

INK 1;" FIGURA: '; 

710 FOR a=128 TO 240 STEP 16 

720 POKE 30114. a; RAND USR 

30112 

730 PRINT AT 20.19sa/16 







! iPffi,.:?^!:'^^^! B^S 



§1! 



74 NEXT a: GOTO 710 
1000 FOR b=l TO LEN aS STEP 2 
1010 LET X=CODE aS(b} 
1020 LET y=CODE aS(b+l) 
1030 GOSUB 1500 
1040 NEXT b 
1050 RETURN 

1500 FOR c=0 TO 399 STEP 20 
1510 LET d-c+(2.25«a) : LET PY=i 
a*y 

1515 IF d>-360 THEN LET d=d-36 

1520 GOSUB 1530: NEXT c 
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7. 



15Z& DRAW bx-xd,bv-vd; RETURN 

IS30 LET yd=SIN (d/180*PI) *x*CO 

S (i/160*PI) 

1532 LET xd-COS (d/180*PI)*x 

1535 LET xd=128+xd: LET yd=90+y 

d+py 

1540 IF C=0 THEN PLOT xd.yd- L 

ET bx=xdr LET by^yd 

1550 DRAW xd-PEEK 23677 , yd-PEEK 

23678 
1560 IF b=l AND bf=l THEN GOTO 

1580 
1565 IF b=l THEN PLOT 128,90: 
DRAW xd-128,yd-90: GOTO 1580 
1570 PLOT a(l+c/20.1) ,a(l+c/20. 
2): DRAW xd-a {l+C/20 , 1 ) , yda (1+ 
c/20.2) 

1580 LET a{l+c/20,l)-xd 
1585 LET a(H-C/20,2>-yd 
1590 RETURN 

1600 POKE 30102, i28+a*16 
1610 RAND USR 30100 
1620 RETURN 
2000 RESTORE 2050 
2010 FOR a=0 TO 23 
2020 READ b: POKE a->'3010l}.b 
2030 NEXT a 
2040 RETURN 

2050 DATA 17,0,0.33,0,64,1.0,16 
.237.176,201 

2060 DATA 33.0,0.17,0,64,1,0,16 
,237,176.201 



10 PMODE 2,1;PCLEAH 2: CLEAR 200 

,7679:DIM A(19,l) 

20 RD=ATN(l)/4S:V-247 

30 PCLS Ir SCREEN 1,0 

40 BX=12e:BY=19O:DRAW"BM128,190 

:X=BX:y=BX 
50 LINE (31,191)-(265,1403 ,PRES 
ET,B 

60 LINE (BX. BY) - (X,y) .PRESET 
70 IF PEEK (345) ^V GOSUB 500 
80 IF PEEK(339)-191 THEN M=4 EL 
SE M=l 
90 LINE (BX,BY)-(X,Y) .PSET:IF P 






EEK(338)=191 AND A? = " " THEN HX= 

X:BY=¥:BF=1 ; GOSUB &00 

100 IF PEEK (339) =V AND LKNIA$)> 

THEN 160 

110 IF PEEK(341)-V AND Y-M>141 

THEN Y=¥ « 

120 IF PEEK(342)=V AND Y+MCIQI 

THEN Y=Y+M 

130 IF PEEK[34J)=V AND X-M>127 

THEN X'X-M 

140 IF PEEKt344)=V AND X+M<223 

THEN X=X^M 

150 GOTO 60 

160 GOSUB 2000' SCREEN 1 , ; FOR A 

=0 TO 6:PCLS1:F0H G=0 TO A : PRES 

ET{0,C*2) :NEXT 

170 GOSUB 1000 

180 GS=INKEY$ 

190 IF A=0 AND 03="" THEN 180 

ZOO IF A=0 AND G$-" " THEN 160 

210 NEXT 

220 FOR A=0 TO 6:PC0PY 5+A*2 TO 

l:PCOPy 6+A*2 TO 2: NEXT 
230 IF INKEYS=" " THEM 160 ELSE 

220 
500 LINE (BX, BY)- (X,Y) .PRESET 
510 LINE(255-BX,BY)--(255-X,Y) ,P 
RESET 

520 BX=X:BY=y:A$=AS+CHRStX-128) 
■i-CHHS(190-y) rRETURN 
1000 FOR B=l TO LEN{A5) STEP 2 
1010 X--ASC(MID$(AS,B, 1) ) ;Y=ASC( 
M1DS(AS,B+1.13 ) 
1020 GOSUB 1500:NEXT 
1030 PCQPY 1 TO 5+A*2:PC0PY 2 T 
6+A*2 
1040 RETURN 

1500 FOB C=0 TO 360 STEP 20 
1510 D=C+20*A/7 :PY"lS*y 



1520 GOSUB 1530: NEXT; RETURN 

15 30 YD^l 10-SINCD*RD1 *X*COS^I'*R 

01 -PY:XD=128 + COStD*RP>'*X 

IL-IO If C-0 THKN LINK (XD.YD) (X 

D.YD) ,PRESET;BX-XD:BY-YD 

]'^bO l.[NE--(XD, YD) .PRESET 

1560 IF B-1 ANLi BF = 1 THEN 1580 

i-:l:!E if b=i then line (12fi. IIO)- 

(XIV. YDl .PRESET: GOTO 1580 

r. /O LlNE(A(C/2 0,0) ,A{C/20, 1) )- 

(XD.YD) .PHKSET 

I 5 BO ACC/20,0)=XD:A(C/20,1)=YD: 

iOOO CLS: INPUT" ANGULO DE 06SER 
VACAO (0-180) ";I 
2010 IF UO UR i:>jaCl THEN iOOO 
.'0 20 lU -SLN (i*til» :fiETJHN 



10 SCREEN 2; DIM A[19. 1) 

20 aD=ATM(l)/45:M=l 

30 LINE tl27,66)-(207.I26) ,15.B 

F 

35 LINE (47,66)-(l27,l25) ,14,BF 

40 BX = 1 2 7 : BY= 1 26 : X=BX : Y-BY : XX=B 

X:Yy=BY 

60 LINE (BX.BY)-{X,Y) .8 

70 CS = rNKEYS:IF GS='"'TREN 70 

75 IF CS'" " THEN GOSUB 50 

80 IF CS = ''R" THEN M=4 

85 IF CS="D" THEN M' 1 

90 LlNE(BX,By)-(X,Y) . 15;IF OS-" 

I" AND A3-"" THEN BX-X:BY-Y:BF 

1: GOSUB 50 

100 IF CS="F" AND LEN(AS)>0 THE 

N 160 

no IF CS=CHH${30) AND Y-ri>f>6 T 

HEN y=y-M 

120 IF CS"CHR${:n} AND Y+M<126 

THEN y=Y+M 

130 IF C$=CHRSC29) AND X-M>127 

THEN X=X-M 

140 IF CS=CHR$C28)AND X+M<207 T 

HEN X=X+M 

150 GOTO 60 

160 GOSUB 2000 

170 COLOR,] I. Ur SCREEN 2: GOSUB 
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1000 

190 CS=[NKEY$:TF CS="" THKN 190 

200 «0T0 160 

500 LINE (BX.BY)-{X.V) ,1 

■ilO LINE {255-BX.BY}- (Z55-X.Y) , 

1 

5Z0 BX=X:BV=y :A$=A$+CHRS(X-1 26) 

^■CHHS(12 7-Y) : RETURN 

1000 FOR B-l TO LEN(AS) STEP 2 

lOiO X=ASC(HrDS (AS,B, I ) ) :Y = AS(.'( 

MIDS(AS,B+1 . U ) 

1020 COHUB 1500 'NEXT B 

1040 RETURN 

1500 FOR C=0 TO 299 STEP 20 

1510 D=C:PV=TS* (¥*.5) 

1520 GOSUB 1530:NEXT C:RETIJRN 

15:t0 yD=96-SrN(D*RD)*X*Ct)S(I*En 

) -PV:XD=]2 7+COS(D*HD) *X 

1540 TF C=0 THEN BX=XD ; By=YD r XX 

=XDrYY=YD 

15:>0 LlNEtXX.YV)-<XD,YD) .1:XX=X 

D: YY-YD 

1560 IF B=l AND BF'l THEN 1580 

15&5 TF B=J THEN LINE tSQ , 9] ) - (X 

D. YD) , l:nOTO 1.5S0 

15 70 LINE(A(C/20.0) ,A{C/20,1) )- 

(XD,YD) ,1 

1580 XX=XD:yY=YD;A(C/20,0)=XD:A 

(C/20. 1>=YD: RETURN 

2000 SCREEN OtKEY OFFrCOLOR 15, 

4.4: LOCATE 8,fi : lNPUT"AnQulo de 

2010 IF KO OR I>180 THEN 2000 
2020 IS=SIN(I*RD) ; RETURN 



nm 



10 HOME '. HGR : DIM A (19,1) 

20 RD - ATN (1) / 45 :M - 1 

30 HCOLOa= 6: HPLOT 140,90 TO 

220,90 TO 220,149 

40 BX = 140:BY = 149:X = BXrY = 

BY: XX = BX:YY = BY 
50 yiAB (21): PRINT "CftMANDOS: 

<I>NrCIO-<F>IH 
52 VTAB (22) : PRINT "VELOCIDAD 
E DO RISCO= <B>APIDO-<D>EVAGAR" 



60 HCOLOR= 3; HPLOT BX,BY TO X 

,y 

70 GET CS: IF CS - 

OSUB 500 

80 IF CS " "R" THEN M = 4 

85 IF CS - "D" THEN M = 1 

90 HCOLOR' 0: HPLOT BX,BY TO X 

.Y: IF CS = "I" AND AS = "" THE 

N BX = X;BY = YrBF = 1: GOSUB 5 

00 

100 IF CS = "F" AND LEN CAS) 

> THEN 160 

110 IF C$ - ";" AND Y - M > 90 

THEN Y = Y - M 
120 IF CS - "." AND Y + M < 15 
THEN Y = Y + M 

130 IF C$ = -Z" AND X - M > 14 
THEN X = X - M 

140 IF C$ - -X" AND X + M < 22 
THEN X - X + M 
150 GOTO 60 
160 HGR : GOSUB 2000 
170 GOSUB 1000 

190 GET CS: IF CS =" " THEN 1 
60 

195 GOTO 190 

500 HCOLOR= 3: HPLOT BX.BY TO 
X,Y 
510 HPLOT 2B1 - BX,BY TO 281 - 

X,Y 
520 BX = X:BY = Y:A$ = A$ + CH 
HS (X ~ 140) + CHRS (149 - Y) : 

RETURN 
100 FOR B = 1 TO LEN (AS) ST 
EP 2 

1010 X - ASC ( MIDS (AS.B.D); 
Y = ASC C MIDS (AS,B + 1,1)) 
1020 GOSUB 1500: NEXT B 
1040 RETURN 

ISOO FOR C = TO 399 STEP 20 
1510 D = C:PY = IS * (Y 
1520 GOSUB 1530; NEXT C: RETUR 
N 

1530 YD = 80 - SIN (D * RD) « 
X * COS CI * RD) - PYrXD = 140 

+ COS CD « RD) * X 




E possfvel realSzar sm um micro anims- 
Qdes gr^ficas em trSs dimensSes como 
as que aparecem na TV? 

Os grafismos animados em tr6s di- 
mensSes que aparecem em vinhetas de 
televisao, e nos fitmes produztdos por 
computador {T80N, por exempio), de- 
vem sua espantosa qualidade e realis- 
mo Ss mSquiras que os elaboram 
gefalmente, supercomputadores do ti 
po Cray II, com capacidade de execu- 
tar sessenta milhSes de operagoes em 
ponto flutuante por segundo. 

A tficnica utilizada, entretanto, nao 
difere da que explicamos neste artigo 
para gerar s6lidos de revolu?;ao. Super- 
ficies complexas sao montadas por mi- 
Ihares de "tijolos" reguiares, depois, 
'alisados" por algoritmos especiais, o 
que ihes dd um aspecto contfnuo. Ou- 
tros programaa pintam as superficies 
com cores selecionadas, adicionam brj- 
Iho e sombra etc, tomarido o resuita- 
do o mais realista posstvel. 

Os micros podem, teoricamente. 
executar quase tudo o que um compu- 
tador de grande porte faz. Pordm, tern 
telas com menor resolucio gr^fica, me- 
nor nijmero de cores, enfim, nao con- 
tarn com OS mesmos recursos. Nao se 
pode esperar, portanto, que produzam 
efeitos de igual qualidade. 



54 VTAB (23): PRINT 'BARRA DE 
ESPACO: FIXA A RETA" 
56 VTAB (24) : PRINT "DIRECAO: 
<Z>.<X>. <!>,<,>-; 
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V figuru tridiinfnsiiirial i' rmiiNlruida 
■A pariir dc urn simpli's piTlil. 



O mknuMimiiuludor fluliorD o di'scnlm 
c\ecutun(l(i n roliiciiii df ludii rrlu. 



CI pfodutu final — o s/ilidi> de 
revnluvao — v txihidn cm Ires dimensocs, 



1540 IF C = THEN BX = XD ; BV 

= YD:XX - XD:VY = YD 

IbSO HCOLOR= 3: HPLOT XX. YY TO 

XD.¥D:XX - XD:yY = YD 
1S60 IF B = 1 AND BF = X THEN 
1580 

1565 IF B = ) THEN HPLOT 80,9 
1 TO XD.YD: GOTO 1580 
1570 HPLOT A{C / 20.0),A(C / 2 
0,1) TO XD.YD 

15B0 XX = XD:YY » YD:A(C / 20.0 
) = XD:A{C / 20,1) = YD: RETURN 



2000 HOME : VTAB (23) : INPUT ' 

ANGULO DE VISAO (0-180): " ; I 

2010 IF I C oa I > 180 THEN 

2000 

2020 IS = SIN (I « RD) : RETURN 



COMO FUNCIONA 



Todos OS programas luni;ioiiam de 
tnodo miiito scmelhanic. As paries mais 




hnponanie*; sao as rotmas que pcniiitcin 
o trai;ado do peTl'il. criam o stStido dc 
rcvoliiv"ao e razeni-no girar. 



INTRODUpAO DO PERFIL 



Wt (iiiiha 140, no micro Spcclrmn), liUi 
simplosnioiilc Ic as tcclas que I'orani 
prcssionadas c atualiza o valor das coor- 
dciiadas da linha auxiliar. O dcscnho dc- 
linilivo e fcidi pcla roliiia da linha 5tHt. 
que tainbem traca o pltHI esquerdu da 
rigura. 

Cada ve/ que se fixa uma liniia, as 
eoordt'iKidas de sua exirernidaUe sao ar- 
ina/enadas. Priinciro, subfrai-sc uni riii- 
iiicro de cada conrdetuida para ohier 
iiina nova coordetiada. relacionada ao 
ponto dc panida do desenho. Em segui- 
da, esses nuilieros sao conveitidos cm 
earaetcres eadicionados ao final dc niiia 
varicivel all'aiuinieriea (AS on a$). 

A roiiua da linha 2(K)() (70, no Spec- 
iriim) permile que sc defiiia o iinguio de 
visao. Depois, o programa c desviado 
para a liiilia KKX), que eria c desfiiha o 
siilido em ires ditnensiies. 



TERCEIRA DIMENSAO 



Essa lutina uliliza as coordciiadaN 
prcviamcnle arma/enadas c o aiigulo de 
visao que voce det'iniu para iransCormar 
o pertil cm imi sniidn dc revoiuijao. A 



na c a mesina para lodos os compuia- 
dores, enibora os eomandos gralleos se 
jam dit'ercnles, 

Na linlia t(H)t), urn layo controlado 
pcla variavcl B seleeioiia cada uma das 
suas liuhas, inmando aseoordeiiadas 1i- 
tiais da variavcl A$. O programa saiia, 
euiiio, para a rulina da linha 15(Kt. V\ 
sa rot ilia dcsloca as coordeiiadas finais 
de acordn eoni o aiigulo requcrido e i ra 
ga as novas retas que irao compor a fa- 
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i.X llil SOlitIt 



If VC/CS - S 



vtvt's ;u> icttor tk- uiii tiiciili). Imii sciiui- 
ila, a [dliiia i'i'Ioiikj :i HiiIki 10(H) parLi 
la/cr o im'sitid ami a prtiNJma linha, ,\o 
cxeciiiar o proi-rariia, voce podeni oh 
scrvar evsa.s ctapas Ja clalinraii'iut do 

<'(>itu> VfKv jii dcvL' let <il'>sci vadi». u 
pioctsso i.'m|iii,'jiado paia Ucsciiluit a 



Iciciilc do iilili/aito para as dL-iiiiiis, Ja 
ipiL- csui IIjiIui jiossiii (.luas cooidciiadas, 
a iiiicial c a Hnal. 

As linlias I5WK' I5(i5 vcrirjaiin sc a 
Ida a scr traballKida c a inicial. Sl- B I , 



sc Br - I. (.■la ruu> dL'vc wr travada. pois 
fora'sponde apt'iias an dL'slocainciitn 
para a dclinivat) do poiilo iiik-ial. Sc 
iiiHivc UIII dcslocainciiio, o pr«(>iama 



nicirlu, n 



ara as cnordcnadas ilo ponlo 
.1 vaiiavcl aHaiuiiiicrica. I'is;i.s 
•idas scrao o paiiU* de partida 
loxima liiilia. C'aso o i-yriiiiLMrn 
ilo iiao tfiitia sidii imi dcsloca- 
> poiiin inicial sera o cciitro, a 



posrcao tiiicial Uo ciirso 
ilo, por Mia vc/, scrii a 



At raves dcslc prtK'Csso, ciida rcia ilo 
pcrl'il sera "iiiultipiicada" pur viiilc c to- 
das clas (crao suas cxttviiiidadcs ligadas 
pov iitn ciroiik*. gcratido o dcilo dc trc^ 
ditucnsocs. 



A ROTACAO 



C) Spcciiiiiii c 11 1 KS-Ciilor. cottio 
disseiiuvs. aiiida ot'crcccin o artilicio dc 
anitiiar a tijiiita lui tela, ao loituc dc uma 
iccla. () luimcro dc liyuras (/ " 
liolado pcio kn,u das liiihas 610 a 6^X). 
no Spcciriim, c da liidia 220 no IKS- 
C'olor. A variiivel \ coiuiola kinihem a 
roiavao parcial dccada lijiiira, par nicio 
dc utiia niodil ica(;rio no iiiigiilo dc \ isao 
(linha 1510), |-iiialiiiciiic, osqiiailiossiu* 
c.Nibidos CITS scLjiicncia, criaiido o cfcitu 
dc animav'ao. 



Hi^PllPi IS pwmtcos 15 




DEOTEX 






QUE E VIDEOTEXTO 



COMO FUNCIONA 



INFORMACOES E SERVICOS 



CONEXAO AO VIDEOTEXTO 



COMPATIBILIDADE 



1200 



Use micro para tef acesso a um 
sofisticado sistema de intercambio 
de informapSes: o videotexto. 
Ele colocarci h sua disposipao uma 
variada gama de servi^os. 



Utilizado isoladamente, um micro- 
computador domeslico e capaz de de- 
sempenhar uma grande variedade de ta- 
refas. Estas se multiplicam, porem, 
quando ele passa a integrar uma rede de 
compuladores — o que, nos liltimos 
anos, se tornou possivel no Brasil. 

No anigo da pagina 561, vimos co- 
mo a tecnologia dos modems {modula- 
dor-demodiilador) permite que se recor- 
ra k rede telefonica normal para envio 
e recepcao de mensagens, textos, dados, 
programas e grdficos em forma digital. 
Um computador pode, assim, "conver- 
sar" com outro de uma maneira barata 
e relativamente rdpida. 

Existcra diferentes tipos de rede de 
computadores que empregam o telefone 
e o modem como raeios de comunicacao. 
As redes de area local (LAN) ou ampla 
(WAN), compostas apenas por micro- 
computadores (como os quadros de avi- 
sos, ou bulletins boards), serao exami- 
nadasem ouiroartigo. Aqui, trataremos 
das redes em que o microcomputador 
e usado como terminal de um compu- 
tador maior. 



COMO FUNCIONA 



O videotexto e um exemplo desse ti- 
po de rede. O sistema estabelece o con- 
tato do usuario com um computador de 
grande porte, por meio da rede telefo- 
nica normal. O microcomputador nao 
e indispensavel k rede; o usudrio preci- 
sa ter apenas um terminal de videotex- 
to. Este e um pequeno aparelho dotado 
de microprocessador e teclado portitil, 
que usa como safda de video um apare- 
Iho de TV domestico. 

O software operacional do videotex- 
to permite nao so a tmplementa^ao de 
uma estrutura prdpria de dados, bem 
como sua consulta pelo usuirio. As in- 
formagoes armazcnadas no computador 



central do sistema videotexto sao orga- 
nizadas em pdginas. Cada pdgina cor- 
responde a uma ou mais lelas de video 
contendo texto e ilustrafoes, ambos em 
cores. Para sua composifjao, utiliza-se 
um conjunto de caracteres graficos ti- 
picos de videotexto. 

As paginas sao organizadas segundo 
uma estrutura em forma de Arvore. O 
usuario pode "explorar" a vontade es- 
sa irvore, chamando k tela — por meio 
de selecSes efetuadas pelo teclado — as 
diversas pdginas que compoem um de- 
terminado conjunto. As opfoes feitas 
sao envLadas ao computador central, 
que entao encaminha a pdgina solicita- 
da para o terminal de videotexto, por in- 
termxSdio da linha telefSnica. 

O uso do videotexto & aberto a assi- 
nantes — ou seja, o usudrio que dese- 
jar ter acesso ao mesmo deve pagar uma 
assinatura mensal, debitada na conta te- 
lefonica normal, alem de unia taxa de 
utiliza(;ao, que varia proporcionalmen- 
te ao tempo que o terminal permanece 
conectado ao sistema. 

Os dados armazenados no computa- 
dor central sao fornecidos por empre- 
.sas, 6rgaos governamentais, jornais, re- 
vistas e outras fontes, que mantem suas 
pr6prias paginas de informagao, atua- 
lizando-as freqiientemente. 

O videotexto oferece uma enorme va- 
riedade de servifos informativos e re- 
creativos; noticias do dia, indicadores 
economicos e cotagoes das bolsas, pro- 
grama^ao de cinemas e teatros, publi- 
cacoes, transportesaereos, turismo, in- 
forma^oes cientificas e medicas, horos- 
copo, niimeros da lista telefonica, pro- 
dutos k venda etc. Como o sistema e in- 
terativo, inclui ainda servigos em que a 
participagao do usuirio e mais intensa, 
tais como: videogames, troca de mensa- 
gens pessoais, anuncios classificados, re- 
serva de passagens a^reas, solicita^ao de 
catdlogos, concursos, telecompras etc. 

O sistema e facil de usar, fornecen- 
do ao usuario todas as instru<;oes neces- 
sdrias e os menus para selegao. 



CONEXAO A UM MICRO 



Como^ja dissemos anieriormente, 
mesmo aqueles que nao possuem um 



computador domestico podem se asso- 
ciar ao sistema videotexto utilizando um 
terminal alugado pela pr6pria compa- 
nhia telefonica local por um valor me- 
dico (nao e necessdrio comprd-lo). 

Entrelanto, a conexao de um micro 
ao sistema videotexto traz algumas van- 
tagens ao usuario — entre elas o acesso 
a alguns servigos de fornecimento gra- 
tuito de software, que pode ser copiado 
com grande facilidade em fita cassete ou 
disco. Dispondo de um computador, o 
usuario tern ainda a possibilidade de lis- 
tar em irapressora as informai;6es for- 
necidas pelo sistema, para exame pos- 
terior. 

Para conectar o seu micro ao siste- 
ma videotexto, basta ter: 

• uma porta serial assincrona, do tipo 
RS-232C (se seu computador nao dispoe 
de uma, voce precisara comprar uma 
placa de expansao); 

• um modem de 1 200 bips por 75 (exis- 
tem tipos especiais para videotexto, al- 
guns deles disponiveis tamb^m como 
placas internas de expansao); 

• um programa de emulagao de termi- 
nal de videotexto, que deve ser carrega- 
do previamente na mem6ria do seu mi- 
cro, quando quiser acessar o servifo. 

Jd existem "pacotes" para acesso ao 
videotexto, contendo os componentes 
mencionados, para praticamente todos 
OS tipos de microcomputadores nacio- 
nais. Algumas companhias telefonicas 
alugam ou vendem kits de acesso para 
OS modelos mais populares, como o Ap- 
ple 11 e sens compativeis. Mesmo micros 
bem simples, como o TK-90X, podem 
ser conectados ao videotexto (nao e pre- 
ciso ter uma unidade de disquete). 

Finalmente, para se beneficiar do sis- 
tema, sera necessdrio que voce se inscre- 
va como assinante do videotexto junto 
a companhia telefonica. Consulte-a pa- 
ra saber se o servigo estd disponivel em 
sua cidade e se seu micro foi credencia- 
do para acesso ao videotexto. Em caso 
de resposta afirmativa, voce poderd ob- 
ter tambem a informa^ao sobre onde 
conseguir o kit de acesso, para aluguel 
ou compra. 
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PROGRAMACAO BASIC 

Amplie a capacidade musical de seu micro reduzindo os dados 
necessaries h execuqiao de melodias. 

C6DIG0 DE MAQUINA 

Avalanche: a ultima morte de Willie. Funeral. Descida ao inferno. Placar. 

PROGRAMAQAO BASIC 

Veja como usar pequenas rotinas para remover espa^os 
em branco e converter maiusculas em minusculas e vice-versa. 

APLICAgdES 

Com um programs simples, os usu^rios do TRS-Color poderao manipular diretamente^ 

a informagao contida nos disquetes. 
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